perm filename 12.F4[1,LCS] blob sn#541192 filedate 1980-10-16 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C**** USE THIS FOR READING FILES FROM TRS80 OVER PHONE LINE. ****
C00003 ENDMK
CāŠ—;
C**** USE THIS FOR READING FILES FROM TRS80 OVER PHONE LINE. ****
C   PUT "*" IN 1ST COLUMN OF LAST LINE OF INPUT FILE TO CAUSE AUTO END.
	DIMENSION I(72)
	DOUBLE PRECISION KK,NONO
1	FORMAT(' TYPE OUTPUT NAME  '$)
2	FORMAT(A10)
	KK='R'
	NONO='[12T,LCS]'
9	CALL DEFINE(1,0,NONO,KK)
6	FORMAT(72A1)
8	FORMAT(1X72A1)
3	READ(1,6,END=10)I
	TYPE 8,I
	GOTO3
10	END